﻿Public Class Form1

    Private Sub Change_button_Click(sender As Object, e As EventArgs) Handles Change_button.Click
        Timer5.Enabled = True
        Dim Rand = New System.Random()
        Dim a = Int((2 * Rnd()) + 0)
        If (a = 0) Then
            Label1.Text = Int((999 * Rnd()) + 0) & "," & Int((8 * Rnd()) + 1)
            Label2.Text = Int((364 * Rnd()) + 1) & "," & Int((8 * Rnd()) + 1)
            Label3.Text = Int((999 * Rnd()) + 0) & "," & Int((8 * Rnd()) + 1)
            Label4.Text = Int((364 * Rnd()) + 1) & "," & Int((8 * Rnd()) + 1)
        Else
            Label1.Text = Int((999 * Rnd()) + 0)
            Label2.Text = Int((364 * Rnd()) + 1)
            Label3.Text = Int((999 * Rnd()) + 0)
            Label4.Text = Int((364 * Rnd()) + 1)
        End If


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str1 As String
        str1 = TextBox1.Text
        Timer5.Interval = Int(str1) * 1000
        Timer5.Enabled = True
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Change_button_Click(sender, e)
        Timer5.Enabled = True
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub
End Class
